home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 4
/
Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO
/
3D-Graphics-Editors
/
lsystem3.exe
/
L System 3
/
_setup.1
/
PASCAL2.LS
< prev
next >
Wrap
Text File
|
1995-12-31
|
600b
|
21 lines
#╔═════════════════╤═══════════════════════════════╗
#║ Pascal2.ls │ (c) C.J. van der Mark ║
#╟─────────────────┴───────────────────────────────╢
#║ Questions about Lparser files to: ║
#║ Internet cvdmark@xs4all.nl ║
#║ Fido 2:283/203.11 ║
#╚═════════════════════════════════════════════════╝
# This file produces a Pascal diamond
6
45
1
D
D=C>>C>>C>>C
C=[[B]<<|[B]]
A={[[++f][^^f]f[+++"(1.4142)f]{[^^^"(1.4142)f&+++f]}]}['(0.5)B]++f--
B=[[AA++^^^"(1.4142)f"(.7071)^f|&&A]fA]++ff--
#
{=_
}=_
@